100 CALL CLEAR
101 DIM A1(34)
110 RANDOMIZE
120 CALL SCREEN(2)
121 RESTORE 11000
122 FOR K=1 TO 32
123 READ A1(K)
124 NEXT K
130 CALL HCHAR(1,1,31,768)
140 CALL VCHAR(1,3,32,24*28)
150 CALL CHAR(42,"FFFFFFFFFFFFFFFF")
160 CALL COLOR(9,7,16)
170 CALL CHAR(128,"FF8181BD9981A5FF")
180 CALL COLOR(13,2,11)
190 CALL CHAR(97,"2424242424242424")
200 CALL CHAR(96,"003C5A7E7E5A3C00")
210 CALL COLOR(2,6,15)
220 CALL CHAR(136,"0101030307070F0F")
230 CALL CHAR(137,"8080C0C0E0E0F0F0")
240 CALL CHAR(138,"1F1F3F3F7F7FFFFF")
250 CALL CHAR(139,"F8F8FCFCFEFEFFFF")
260 CALL COLOR(14,5,15)
270 CALL CHAR(140,"FFFFFFFFFFFFFFFF")
280 CALL CHAR(144,"FF81818181818181")
290 CALL CHAR(145,"8181818181818181")
300 CALL CHAR(146,"81818181818181FF")
310 CALL COLOR(15,2,16)
320 CALL CHAR(152,"0101030307070F0F")
330 CALL CHAR(153,"8080C0C0E0E0F0F0")
340 CALL CHAR(154,"1F1F3F3F7F7FFFFF")
350 CALL CHAR(155,"F8F8FCFCFEFEFFFF")
360 CALL CHAR(156,"FFFFFFFFFFFFFFFF")
370 CALL COLOR(16,8,5)
380 CALL CHAR(43,"1818182424244266")
390 CALL CHAR(45,"5A18A5A5E781E799")
400 CALL CHAR(114,"0000000000000FF8")
410 CALL CHAR(115,"010302071FFDF903")
420 CALL CHAR(116,"80C040F0F8BF9FC0")
430 CALL CHAR(117,"000000000000F01F")
440 CALL CHAR(129,"FFFFFFFFFFFFFFFF")
450 CALL CHAR(130,"83819981839F9F9F")
460 CALL CHAR(131,"81819F81819F8181")
470 CALL CHAR(132,"8381919999918183")
480 CALL CHAR(133,"C1819F83C1F98183")
490 FOR K=1 TO 8
500 CALL COLOR(K,7,15)
510 NEXT K
511 CALL COLOR(1,2,2)
520 CALL VCHAR(1,3,32,24*28)
521 CALL CHAR(128,"FF8181BD9981A5FF")
522 CALL COLOR(13,2,11)
523 CALL COLOR(1,7,15)
530 PRINT "": : : : : :
540 PRINT "    BY BRENTARO LUCA (C)": :"    PRESS ""G"" FOR TO PLAY": :"    PRESS ""D"" FOR DIRECT.": : : :
549 A=0
550 CALL KEY(3,K,S)
551 A=A+2
552 CALL SOUND(-100,A1(A),2,A1(A-1),2)
553 CALL SOUND(-100,A1(A),20,A1(A-1),20)
554 IF A=32 THEN 555 ELSE 560
555 A=0
560 IF S=0 THEN 550
570 IF K=ASC("D")THEN 580 ELSE 760
580 RESTORE
581 GOTO 610
590 DATA QUESTO GIOCO E' "  ". TU,SEI ALLA GUIDA DI UN PICCOLO,MEZZO DOTATO PERO' DI POTEN=
591 PRINT "         ..... ": :"        +":"        - ....... 15": :"        ` ....... 10": : :"PREMI UN TASTO"
600 DATA TI ARMI OFFENSIVE CHE TI AC=,COMPAGNERANNO NELLA TUA MIS=,SIONE :DISTRUGGERE LE ASTRO=,NAVI NEMICHE!
601 GOTO 650
610 CALL VCHAR(1,3,32,24*28)
620 FOR K=1 TO 8
630 CALL COLOR(K,16,2)
640 NEXT K
641 GOTO 591
650 FOR S=1 TO 13 STEP 2
660 READ A$
670 FOR K=1 TO LEN(A$)
680 CALL HCHAR(S,2+K,ASC(SEG$(A$,K,1)))
690 CALL SOUND(-1,1300,20)
700 NEXT K
710 NEXT S
711 CALL KEY(3,K,S)
712 IF S=0 THEN 711
720 CALL VCHAR(1,3,32,24*28)
730 FOR K=1 TO 8
740 CALL COLOR(K,7,15)
750 NEXT K
760 CALL VCHAR(1,3,32,24*28)
770 A=16
771 CALL COLOR(2,6,15)
780 P=0
790 CALL HCHAR(12,A,128)
800 C=0
810 CALL COLOR(11,13,15)
820 PRINT "    ***          ***    "
830 GOSUB 1860
840 PRINT "    ***          ***    "
850 GOSUB 1860
860 PRINT "  ***      ***  "
870 GOSUB 1860
880 PRINT "          "
890 GOSUB 1860
900 PRINT "          "
910 GOSUB 1860
920 PRINT "          "
930 GOSUB 1860
940 PRINT "          "
950 GOSUB 1860
960 PRINT "                            "
970 GOSUB 1860
980 PRINT
990 CALL HCHAR(24,15+INT(RND*3),96)
1000 GOSUB 1860
1010 PRINT
1020 GOSUB 1860
1030 PRINT
1040 GOSUB 1860
1050 PRINT
1060 GOSUB 1860
1070 PRINT "           ****          "
1080 GOSUB 1860
1090 PRINT "           ****          "
1100 GOSUB 1860
1110 PRINT "         ****        "
1120 GOSUB 1860
1130 PRINT "         ****        "
1140 GOSUB 1860
1150 PRINT "         ****        "
1160 GOSUB 1860
1170 PRINT "                 "
1180 GOSUB 1860
1190 PRINT "                 "
1200 GOSUB 1860
1210 PRINT "                 "
1220 GOSUB 1860
1230 PRINT "                 "
1240 GOSUB 1860
1250 PRINT
1260 GOSUB 1860
1270 PRINT
1280 GOSUB 1860
1290 PRINT
1300 GOSUB 1860
1310 PRINT "**                      **"
1320 GOSUB 1860
1330 PRINT "**                      **"
1340 GOSUB 1860
1350 PRINT "******              ******"
1360 GOSUB 1860
1370 PRINT "******              ******"
1380 GOSUB 1860
1390 PRINT "******            ******"
1400 GOSUB 1860
1410 PRINT "******            ******"
1420 GOSUB 1860
1430 PRINT "******          ******"
1440 GOSUB 1860
1450 PRINT "          "
1460 GOSUB 1860
1470 PRINT "      "
1480 GOSUB 1860
1490 PRINT "      "
1500 GOSUB 1860
1510 PRINT "    "
1520 GOSUB 1860
1530 PRINT "    "
1540 GOSUB 1860
1550 PRINT "    "
1560 GOSUB 1860
1570 PRINT "    "
1580 GOSUB 1860
1590 PRINT "    "
1600 GOSUB 1860
1610 PRINT
1620 GOSUB 1860
1630 PRINT
1640 GOSUB 1860
1650 PRINT
1660 GOSUB 1860
1670 PRINT
1680 GOSUB 1860
1690 PRINT "           +    +          "
1700 GOSUB 1860
1710 PRINT "        +  -    -  +       "
1720 GOSUB 1860
1730 PRINT "     +  -          -  +    "
1740 GOSUB 1860
1750 PRINT "  +  -                -  + "
1760 GOSUB 1860
1770 PRINT "  -         rstu         - "
1780 GOSUB 1860
1790 PRINT
1800 GOSUB 1860
1810 PRINT
1820 GOSUB 1860
1830 PRINT
1840 GOSUB 1860
1850 GOTO 820
1860 CALL KEY(3,K,S)
1870 IF K=68 THEN 2030
1880 IF K=83 THEN 2050
1890 IF K=32 THEN 2070
1900 C=0
1910 A=A+C
1920 CALL GCHAR(12,A,K)
1930 IF(K=32)+(K=96)THEN 1940 ELSE 5000
1940 CALL HCHAR(11,A-C,32)
1950 CALL HCHAR(12,A,128)
1960 IF K=96 THEN 1970 ELSE 2020
1970 CALL SOUND(-100,220,1)
1980 CALL SOUND(-100,440,1)
1990 CALL SOUND(-100,660,1)
2000 CALL SOUND(-100,880,1)
2010 P=P+10
2020 RETURN
2030 C=1
2040 GOTO 1910
2050 C=-1
2060 GOTO 1910
2070 CALL GCHAR(12,A,K)
2080 IF(K=32)+(K=96)THEN 2090 ELSE 5000
2090 CALL HCHAR(11,A,32)
2100 CALL HCHAR(12,A,128)
2110 C=0
2120 IF K=96 THEN 1970
2130 CALL SOUND(-200,-5,29)
2140 FOR K=13 TO 23
2150 CALL GCHAR(K,A,S)
2160 IF S<>32 THEN 2240
2170 C=K
2180 CALL HCHAR(K,A,97)
2190 NEXT K
2200 IF C=0 THEN 2230
2210 CALL VCHAR(13,A,32,C-12)
2220 C=0
2230 RETURN
2240 IF S=43 THEN 2250 ELSE 2340
2250 CALL SOUND(-100,1047,1,1318,1)
2260 CALL SOUND(-100,1047,1,1568,1)
2270 CALL SOUND(-100,1047,1,2094,1)
2280 P=P+15
2290 IF C=0 THEN 2300 ELSE 2320
2300 CALL VCHAR(13,A,32,2)
2310 GOTO 2330
2320 CALL VCHAR(13,A,32,C-10)
2330 GOTO 2220
2340 CALL SOUND(-100,2000,1)
2350 CALL SOUND(-100,2005,10)
2360 CALL SOUND(-100,2010,20)
2370 CALL SOUND(-100,2015,25)
2380 GOTO 2200
5000 CALL COLOR(2,16,15)
5010 CALL SOUND(-1000,-7,1)
5020 CALL CHAR(128,"FF8181FF81FF81FF")
5030 CALL COLOR(2,6,15)
5040 CALL SOUND(-1000,-7,15)
5050 CALL COLOR(13,7,11)
5060 CALL CHAR(128,"FFA5FFA5A5FFA5FF")
5070 CALL COLOR(13,16,2)
5080 CALL SOUND(-200,-5,29)
5090 CALL HCHAR(9,11,32,12)
5100 CALL HCHAR(8,11,32,12)
5110 CALL HCHAR(10,11,32,12)
5120 A$="GAME  OVER"
5130 FOR K=1 TO LEN(A$)
5140 CALL HCHAR(9,11+K,ASC(SEG$(A$,K,1)))
5150 NEXT K
5160 FOR K=135 TO 130 STEP-1
5170 CALL SOUND(-100,K,10,K*2,10)
5180 NEXT K
5182 CALL SOUND(-100,131,10,262,10)
5190 FOR K=1 TO 4
5200 CALL SOUND(-100,131,15,196,15)
5210 CALL SOUND(-100,131,20,196,20)
5220 CALL SOUND(-100,131,25,196,25)
5230 CALL SOUND(-100,131,15,262,15)
5240 CALL SOUND(-100,131,20,262,20)
5250 CALL SOUND(-100,131,25,262,25)
5260 NEXT K
5270 S=25
5280 FOR K=1 TO 12
5290 S=S-1
5300 CALL HCHAR(K,3,31,28)
5310 CALL HCHAR(S,3,31,28)
5320 NEXT K
5321 FOR K=1 TO 8
5322 CALL COLOR(K,11,2)
5323 NEXT K
5324 PRINT " HAI TERMINATO LA SFIDA CON": :" PUNTI ";P: :" PREMI UN TASTO": : : :
5325 CALL KEY(3,K,S)
5326 IF S=0 THEN 5325
5327 CALL HCHAR(1,1,31,768)
5350 GOTO 490
11000 DATA 165,262,165,262,165,262,175,294,196,330,196,330,196,330,220,349,196,330,175,292,175,294,196,330,175
11010 DATA 294,165,523,165,262,165,131
